home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / tcega.arc / GPRDCLR.C < prev    next >
Text File  |  1986-02-22  |  808b  |  17 lines
  1. /*                                                                            */
  2. /*      EGA Graphic Primitive for Turbo Pascal 3.01A, Version 01Feb86.        */
  3. /*      (C) 1986 by Kent Cedola, 2015 Meadow Lake Ct., Norfolk, VA, 23518     */
  4. /*                                                                            */
  5. /*      Description: Read the current color to be used by other graphic       */
  6. /*      primitives.  If the current color is set to -1 then then current      */
  7. /*      line style will be used for drawing lines or shading will be used     */
  8. /*      instead of solid color.                                               */
  9. /*                                                                            */
  10.  
  11. int GPRDCLR()
  12. {
  13.   extern int GDCOLOR;
  14.  
  15.   return (GDCOLOR);
  16. }
  17.